home *** CD-ROM | disk | FTP | other *** search
/ Clickx 148 / Clickx_Magazine_148_Coverdisc_cd5.iso / pc / Yucom / intro.dxr / Scripts_8_on browsercheck4.ls < prev    next >
Encoding:
Text File  |  1999-11-03  |  1.1 KB  |  45 lines
  1. global gBrowser, gnummer
  2.  
  3. on browsercheck4
  4.   gBrowser = 0
  5.   if the platform contains "macintosh" then
  6.     ie = baFindApp("MSIE")
  7.     if ie contains "Internet Explorer 4" then
  8.       gBrowser = 1
  9.       put "mac" into field "versie"
  10.       go("BrowserOK")
  11.     else
  12.       if ie contains "Internet Explorer 5" then
  13.         gBrowser = 1
  14.         go("BrowserOK")
  15.       else
  16.         if ie contains "Internet Explorer" then
  17.           go("BrowserUpdate")
  18.         else
  19.           go("BrowserUpdate")
  20.         end if
  21.       end if
  22.     end if
  23.   else
  24.     ie = baReadRegString("SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform", "Version", "Error", "HKEY_LOCAL_MACHINE")
  25.     nummer = char 1 of ie
  26.     gnummer = value(nummer)
  27.     if gnummer > 4 then
  28.       gBrowser = 1
  29.       go("BrowserOK")
  30.       put gnummer into field "versie"
  31.       put "explorer " before word 1 of field "versie"
  32.     else
  33.       if gnummer < 5 then
  34.         gBrowser = 0
  35.         go("BrowserUpdate")
  36.       else
  37.         if ie = "error" then
  38.           gBrowser = 0
  39.           go("BrowserUpdate")
  40.         end if
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.